perm filename ECHO.FAI[206,JMC]1 blob sn#005328 filedate 1971-01-05 generic text, type T, neo UTF8
00100		TITLE ECHO
00400		A←1
00500		B←2
00600	ST:	CALLI
00700		MOVE A,[POINT 7,BUFF]
00800	L:	INCHRW B
00900		IDPB B,A		
01000		CAIE B,12
01100		JRST L
01200		MOVE A,[POINT 7,BUFF]
01300	L1:	ILDB B,A
01400		OUTCHR B
01500		CAIE B,12
01600		JRST L1
01700		JRST ST
01750	BUFF:	BLOCK 200
01800		END ST